0 CLR
10 REM STAR PRINTER
15 POKE53280,6:POKE53281,6:PRINT"[147]"
20 FOR L=54272 TO 54295:POKE L,0:NEXT:POKE 54296,15
30 POKE 54277,8:POKE 54278,255:POKE 54276,23
40 FOR Z=1 TO 3:F1=15
50 FOR Y=1 TO 9:F2=15:POKE 54273,F1
60 FOR X=1 TO 5:POKE 54287,F2:F2=F2*1.5 :NEXT X:F1=F1*0.8
70 FOR W=1 TO 12:F2=20:POKE 54273,F1
80 FOR V=1 TO 6:POKE 54287,F2:F2=F2*0.8
90 NEXT V:F1=F1/1.2:NEXT W,Z
100 POKE 54278,15